﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

	' Dim sid_
	' sid_ = Request.Form("bbsSid")
	' If sid_ <> "" And ifLetter(sid_)=False Then Call Error("<card title='出错'><p>论坛会话标识无效！")
	' if len(Request.Form("numTitle"))<1 then
		' Call Error("<card title='出错'><p>请输入！")
	' end if
	'----------------------------------------------------------------
	'	生成seo.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/seo.asp"'生成seo.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"seosite="""&forQuote(Request.Form("seosite"))&""" '网站描述"
	HU_Config=HU_Config+chr(13)&chr(10)&"seoart="""&Request.Form("seoart")&""" '文章关键词"
	HU_Config=HU_Config+chr(13)&chr(10)&"seoartdef="""&forQuote(Request.Form("seoartdef"))&""" '默认关键词"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
	Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站SEO配置">
<p align="left">
网站描述:<input name="seosite<%=time_r%>" value="<%=seosite%>"/><br/>
文章关键词:<select name="seoart<%=time_r%>" value="<%=seoart%>">
<option value="0">默认关闭</option>
<option value="1">开启</option>
</select><br/>
┗默认关键词:<input name="seoartdef<%=time_r%>" value="<%=seoartdef%>"/><br/>
<anchor>保存配置
<go href="admin.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="seosite" value="$(seosite<%=time_r%>)"/>
<postfield name="seoart" value="$(seoart<%=time_r%>)"/>
<postfield name="seoartdef" value="$(seoartdef<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、SEO为搜索引擎优化，有利于网站被收录<br/>
2、文章关键词开启后，文章发表要填写关键词<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>